home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir33 / fcc610.zip / FCC610.PS
Text File  |  1994-05-29  |  33KB  |  1,038 lines
  1.  
  2. ----- cut here - fcc610.README -----
  3. If you want to use this code to generate a pre-filled 610 form, you need
  4. to prepend the code with a postscript file containing a dictionary
  5. called FORM. The key-value pairs in FORM are listed below. If a key
  6. is not present in the dictionary, the data it represents will be left
  7. blank. Boolean fields place an "X" in the appropriate box if true.
  8. date-string fields must be strings consisting of 6 numeric digits,
  9. month, day, year. Be sure to zero-pad if a month or day is less than 10.
  10.  
  11. Key        Type        Description        Location
  12.  
  13. /FIRST        string        First name        1
  14. /MIDDLE        string        Middle Initial        1
  15. /LAST        string        Last name         1
  16. /SUFFIX        string        Suffix (Jr, Sr, etc)    1
  17. /BIRTH        date-string    Date of birth        2
  18. /STREET        string        street address        3
  19. /CITY        string        city            3
  20. /STATE        string        state            3
  21. /ZIP        string        ZIP code        3
  22. /4A        boolean        New license        4A
  23. /4B        boolean        Upgrade            4B
  24. /4C        boolean        Name change        4C
  25. /4D        boolean        Address change        4D
  26. /4E        boolean        Callsign change        4E
  27. /4F        boolean        Renew            4F
  28. /OLDFIRST    string        Prior first name    4C
  29. /OLDMIDDLE    string        Prior middle initial    4C
  30. /OLDLAST    string        Prior last name        4C
  31. /OLDSUFFIX    string        Prior suffix        4C
  32. /CALL        string        Callsign        5A
  33. /CLASS        string        Operator class        5B
  34. /6N        boolean        No environmental impact    6
  35. /6Y        boolean        Yes, env. impact    6
  36. /PURPOSE    string        Purpose of prev. appl.    7A
  37. /FILED        date-string    date prev. appl. filed    7B
  38. /SIGNED        date-string    date signed        9
  39. /NOVICE        boolean        qualified for Novice    A
  40. /TECH        boolean        qualified for Tech    A
  41. /TECH-PLUS    boolean        qualified for Tech+    A
  42. /GENERAL    boolean        qualified for General    A
  43. /ADVANCED    boolean        qualified for Adv.    A
  44. /EXTRA        boolean        qualified for Extra    A
  45. /VEC        string        Name of VEC        C
  46. /SESSION-DATE    string        date of session        D
  47. /SESSION-LOC    string        Location of session    E
  48. /VE1-NAME    string        VE #1's name
  49. /VE1-CALL    string        VE #1's call
  50. /VE1-SIGNED    string        VE #1 date signed
  51.  
  52. (last 3 fields repeated for VE2 and VE3)
  53.  
  54. Example (level 2 postscript):
  55.  
  56. %!
  57.  
  58. /FORM <<
  59.  
  60. /FIRST (Bartholemew)
  61. /MIDDLE (J)
  62. /LAST (Simpson)
  63. /STREET (1123 Anystreet)
  64. /CITY (Springfield)
  65. /STATE (IL)
  66. /ZIP (00000)
  67. /BIRTH (122088)
  68. /CALL (N4QRT)
  69. /CLASS (General)
  70. /4D true
  71. /6N true
  72. /SIGNED (050394)
  73.  
  74. >> def
  75.  
  76. Prepending that would print out a 610 form suitable for a change
  77. of address.
  78.  
  79. ----- ereh tuc -----
  80. ----- cut here - fcc610.ps -----
  81. %!PS-Adobe-3.0
  82. %%BoundingBox: 26 29 588 772
  83. %%LanguageLevel: 2
  84. %%PageOrder: Ascend
  85. %%Requirements: duplex
  86. %%Title: FCC_form_610
  87. %%Creator: Nick_Sayer
  88. %%Pages: 2
  89. %%DocumentNeededResources: font AvantGarde-Book AvantGarde-Demi
  90. %%+ font ZapfDingbats Courier
  91. %%EndComments
  92. %%BeginProlog
  93. %%EndProlog
  94. %%BeginSetup
  95. %
  96. % FCC610.PS
  97. % Federal Communications Commission form 610
  98. % Version number kept below
  99. % Written by Nick Sayer, N6QQQ
  100. % I don't think I can claim copyright on this since it is a federal
  101. % form.
  102. %
  103. % This version has been examined by the FCC and contains corrections
  104. % they caught. I would therefore suggest that this version be used
  105. % in preference to previous ones for submissions to the Commission.
  106. % I still have to run through one or two more hoops aparently before
  107. % this form is "officially" blessed, though, so if you use this form
  108. % and the FCC kicks it back, don't blame me!
  109. %
  110. % One hint: The paper color is critical. I have submitted 610 forms
  111. % photocopied onto 'Goldenrod' paper and have had them accepted,
  112. % but white won't work. The FCC uses paper color to sort the forms
  113. % from various services out more easily or something.
  114. %
  115. % The source for this form is the 11/93 version of the form.
  116. % The original indicia (here deleted per FCC policy) said
  117. % 3060-0033, expires 08/31/95.
  118. %
  119. % The form was carefully measured with a ruler to the nearest millimeter.
  120. %
  121. % Here are the differences you may note in the form:
  122. %
  123. % 1. OMB notation at upper left omitted.
  124. %    This in keeping with FCC policy for privately generated forms.
  125. %
  126. % 2. Possible measurement errors.
  127. %    I only measured to the nearest 1 mm. Some lines had to be moved
  128. %    very slightly to make room for the font I used (especially in
  129. %    section 2A).
  130. %
  131. % 3. There is a version number in the top right corner of the back.
  132. %    Delete it if you like. I'd go nuts without it given how many
  133. %    times I've printed these out.
  134. %
  135. % 4. AvantGarde is the closest font I could find to the one the FCC
  136. %    used. It's not an exact match. Their font is certainly a
  137. %    sans-serif font but it's taller. I think it's close enough.
  138. %
  139. % Any other differences are probably bugs.
  140. %
  141. % This version has been tested under Ghostscript, NeWSprint 2.0 and
  142. % OpenWindows 3.3 DPS (pageview). The date-line procedure produces
  143. % eroneous results under NeWSprint, but I think it's a NeWS bug.
  144. % Apart from that, it works fine on all the platforms I've tried.
  145. %
  146. % This version allows you to prepend a dictionary to this file. The
  147. % dictionary will be used to fill out the front (only) of the form.
  148. % See the accompanying README file for a list of dictionary entries.
  149. % The fields will be filled out in Courier 12 pitch font so that it
  150. % looks just like a typewriter.
  151. %
  152. % VEs may wish to print a large number of forms back-only in advance of
  153. % a test session, then load all of the resulting pages in a laser
  154. % printer at the test session. Then for each examinee they can run a
  155. % program that will pre-pend the dictionary as appropriate and 
  156. % run the first page only. The result would be a fully-filled
  157. % 610 form ready for 4 signatures. If you do this, you'll want to
  158. % use one of the many EPS page splitter programs to make front-only
  159. % and back-only renditions.
  160.  
  161. /VERSION (V3.04) def
  162.  
  163. /inch { 72 mul } def
  164. /cm { 2.54 div inch } def
  165. /mm { 25.4 div inch } def
  166.  
  167. %%IncludeResource: font Courier
  168. /FILLIN-FONT (Courier) findfont def
  169. %%IncludeResource: font AvantGarde-Book
  170. /NORMAL-FONT (AvantGarde-Book) findfont def
  171. %%IncludeResource: font AvantGarde-Demi
  172. /BOLD-FONT (AvantGarde-Demi) findfont def
  173. %%IncludeResource: font ZapfDingbats
  174. /DING-FONT (ZapfDingbats) findfont def
  175.  
  176. /center-text % string --
  177. {
  178.   dup stringwidth pop 2 div currentpoint pop exch sub currentpoint
  179.   exch pop moveto show
  180. } def
  181.  
  182. /right-justify % --
  183. {
  184.   dup stringwidth pop currentpoint pop exch sub currentpoint
  185.   exch pop moveto show
  186. } def
  187.  
  188. % we want a justify-text % x1 x2 y string --
  189. % It's going to have to take the difference between x2-x1 and
  190. % {string stringwidth}, divide that by {string length}, and
  191. % use the result as the x argument to ashow.
  192.  
  193. /justify-text % x1 x2 y string --
  194. {
  195.   3 index 2 index moveto
  196.   3 index 3 index exch sub
  197.   1 index stringwidth pop sub
  198.   1 index length div 0 2 index ashow
  199.   pop pop pop pop
  200. } def
  201.  
  202. % Well, this is supposed to be the level 2 way to print on both
  203. % sides and choose the right sort of paper, but level 1 implementations
  204. % will lose their minds, so comment it out if it gives you trouble.
  205. %
  206. systemdict /setpagedevice known { << 
  207.   /Duplex true
  208.   /PageSize [ 612 792 ]
  209.   /MediaColor (Goldenrod)
  210. % /ManualFeed true may also be desirable at this point
  211. >> setpagedevice } if
  212.  
  213. % We also want stroke adjustment, just in case.
  214. %
  215. systemdict /setstrokeadjust known { true setstrokeadjust } if
  216.  
  217. % And for those who only have level 1, we can work around glyphshow.
  218. % It is, however, the prefered method of doing this sort of thing.
  219. %
  220. systemdict /glyphshow known
  221.  { /DING-SIGN { /a22 glyphshow } def /DING-ARROW { /a186 glyphshow } def }
  222.  { /DING-SIGN { <36> show } def /DING-ARROW { <F8> show } def }
  223. ifelse
  224.  
  225. %%EndSetup
  226. %%Page: "front" 1
  227. % Everything is relative to the bottom-left corner of the main box.
  228. % So to make it fit on the page, we have to shove it around a bit.
  229.  
  230. .9 cm 1.6 cm translate
  231.  
  232. % There are two very thick boxes near the top and middle
  233.  
  234. /headerbox % x y --
  235. {
  236. moveto
  237.  
  238. gsave
  239.  
  240. 2 setlinewidth
  241.  
  242. % This is kind of a bitch. Because PostScript centers the setlinewidth
  243. % on the center of the line, we need to tweak the heavily drawn boxes
  244. % by both their width and the width of the lines they're butting up
  245. % to. That means moving in 1.75 points, not 2.
  246.  
  247. .75 0 rmoveto
  248. 198 mm 1.5 sub 0 rlineto 0 6 mm rlineto -198 mm 1.5 add 0 rlineto closepath
  249. stroke
  250.  
  251. grestore gsave % to rescue the currentpoint.
  252.  
  253. % Now the little vertical lines
  254.  
  255. 1 setlinewidth
  256.  
  257. 35 mm 0 rmoveto 0 6 mm rlineto 198 35 2 mul sub mm 0 rmoveto 0 -6 mm
  258. rlineto stroke
  259.  
  260. grestore gsave % again...
  261.  
  262. % Things just get a bunch worse here.
  263.  
  264. .95 setgray 1.25 1 rmoveto 35 mm 1.75 sub 0 rlineto 0 6 mm 2 sub rlineto
  265. -35 mm 1.75 add 0 rlineto closepath fill
  266.  
  267. grestore gsave % one more time.
  268.  
  269. .95 setgray 198 mm 1.25 sub 1 rmoveto -35 mm 1.75 add 0 rlineto 0 6 mm 2 sub
  270. rlineto 35 mm 1.75 sub 0 rlineto closepath fill
  271.  
  272. grestore
  273.  
  274. } def
  275.  
  276. 0 232 mm headerbox
  277. 0 101 mm headerbox
  278.  
  279. % The rest of the lines are a half point wide
  280.  
  281. .5 setlinewidth
  282.  
  283. % The main box
  284.  
  285. newpath 0 232 mm moveto 0 0 lineto 198 mm 0 lineto 198 mm 232 mm lineto
  286. stroke
  287.  
  288. % Now all the full-length horizontal lines
  289.  
  290. /full-line % y --
  291. {
  292. dup 0 exch moveto 198 mm exch lineto stroke
  293. } def
  294.  
  295. 11 mm full-line
  296. 24 mm full-line
  297. 37 mm full-line
  298. 45 mm full-line
  299. 120 mm full-line
  300. 131 mm full-line
  301. 138 mm full-line
  302. 150 mm full-line
  303. 157 mm full-line
  304. 168 mm full-line
  305. 210 mm full-line
  306. 220 mm full-line
  307.  
  308. % Now all the vertical lines dividing those stripes
  309.  
  310. 66 mm 0 moveto 66 mm 37 mm lineto
  311. 99 mm 0 moveto 99 mm 37 mm lineto
  312. 169 mm 0 moveto 169 mm 37 mm lineto
  313. stroke
  314.  
  315. 119 mm 45 mm moveto 119 mm 101 mm lineto stroke
  316.  
  317. 155 mm 107 mm moveto 155 mm 120 mm lineto stroke
  318. 155 mm 138 mm moveto 155 mm 150 mm lineto stroke
  319. 67 mm 138 mm moveto 67 mm 150 mm lineto stroke
  320.  
  321. 88 mm 157 mm moveto 88 mm 168 mm lineto stroke
  322. 139 mm 157 mm moveto 139 mm 168 mm lineto stroke
  323.  
  324. 84 mm 210 mm moveto 84 mm 232 mm lineto stroke
  325. 137 mm 210 mm moveto 137 mm 232 mm lineto stroke
  326. 158 mm 210 mm moveto 158 mm 232 mm lineto stroke
  327.  
  328. % Now all the horizontal lines dividing up the resulting cubes
  329.  
  330. 0 mm 68 mm moveto 119 mm 68 mm lineto stroke
  331. 0 mm 56 mm moveto 119 mm 56 mm lineto stroke
  332.  
  333. % Now once again we divide up the resulting slices
  334.  
  335. 62 mm 45 mm moveto 62 mm 56 mm lineto stroke
  336.  
  337. % Now we start scribbling. TOP SECTION
  338.  
  339. NORMAL-FONT 8 scalefont setfont
  340. 0 253 mm moveto (FEDERAL COMMUNICATIONS COMMISSION) show
  341. 0 250 mm moveto (GETTYSBURG, PENNSYLANIA) show
  342. 182 mm 246 mm moveto (See instructions for) center-text
  343. 182 mm 243 mm moveto (information regarding) center-text
  344. 182 mm 240 mm moveto (public burden estimate.) center-text
  345.  
  346. BOLD-FONT 14 scalefont setfont
  347. 99 mm 246 mm moveto (APPLICATION FORM 610 FOR) center-text
  348. 99 mm 240 mm moveto (AMATEUR OPERATOR/PRIMARY STATION LICENSE) center-text
  349.  
  350. BOLD-FONT 10 scalefont setfont
  351. 99 mm 234 mm moveto
  352.  (SECTION 1 - TO BE COMPLETED BY APPLICANT \(See instructions\))
  353. center-text
  354. 99 mm 103 mm moveto
  355.  (SECTION 2 - TO BE COMPLETED BY ALL ADMINISTERING VE's)
  356. center-text
  357.  
  358. BOLD-FONT 8 scalefont setfont
  359. 99 mm 38 mm moveto
  360. (WITH THE INSTRUCTIONS PROVIDED BY THE COORDINATING VEC AND THE FCC)
  361. center-text
  362. 99 mm 42 mm moveto
  363. (I CERTIFY THAT I HAVE COMPLIED WITH THE ADMINISTERING VE REQUIREMENTS IN PART 97 OF THE COMMISSION'S RULES AND)
  364. center-text
  365.  
  366. /box % --
  367. { currentpoint newpath moveto .3 cm 0 cm rlineto 0 cm .3 cm rlineto
  368.   -.3 cm 0 cm rlineto closepath stroke }
  369. def
  370.  
  371. NORMAL-FONT 8 scalefont setfont
  372.  
  373. 1 mm 229 mm moveto (1. Print or type last name) show
  374. 65 mm 229 mm moveto (Suffix) show
  375. 85 mm 229 mm moveto (First name) show
  376. 138 mm 229 mm moveto (Middle initial) show
  377. 159 mm 229 mm moveto (2. Date of birth) show
  378. 1 mm 217 mm moveto (3. Mailing address \(Number and street\)) show
  379. 85 mm 217 mm moveto (City) show
  380. 138 mm 217 mm moveto (State code) show
  381. 159 mm 217 mm moveto (ZIP code) show
  382.  
  383. /date-line
  384. {
  385. gsave
  386. 0 mm 6 rmoveto
  387. [ 5 mm 1 mm 5 mm 2 mm ] 0 setdash
  388. 39 mm 0 rlineto stroke
  389. grestore gsave
  390. [ 0 11 mm 2 mm 11 mm 2 mm 11 mm ] 1 setdash
  391. 0 mm 12 rmoveto
  392. 35 mm 0 rlineto stroke
  393. grestore gsave
  394. NORMAL-FONT 8 scalefont setfont
  395. (month) show
  396. grestore gsave
  397. 15 mm 0 rmoveto
  398. NORMAL-FONT 8 scalefont setfont
  399. (day) show
  400. grestore gsave
  401. 26 mm 0 rmoveto
  402. NORMAL-FONT 8 scalefont setfont
  403. (year) show
  404. grestore
  405. } def
  406.  
  407. 160 mm 221 mm moveto date-line
  408.  
  409. 1 mm 207 mm moveto (4. I HEREBY APPLY FOR \(make an X in the ) show
  410. (appropriate box\(es\)\):) show
  411.  
  412. 7 mm 199 mm moveto (4A. ) show 13 mm 199 mm moveto box
  413. BOLD-FONT 10 scalefont setfont
  414. 18 mm 199 mm moveto (EXAMINATION ) show
  415. NORMAL-FONT 8 scalefont setfont
  416. ( for a new license) show
  417.  
  418. 7 mm 190 mm moveto (4B. ) show 13 mm 190 mm moveto box
  419. BOLD-FONT 10 scalefont setfont
  420. 18 mm 190 mm moveto (EXAMINATION ) show
  421. NORMAL-FONT 8 scalefont setfont
  422. ( for upgrade of my operator license) show
  423. 18 mm 187 mm moveto (class) show
  424.  
  425. 7 mm 180 mm moveto (4C. ) show 13 mm 180 mm moveto box
  426. BOLD-FONT 10 scalefont setfont
  427. 18 mm 180 mm moveto (CHANGE ) show
  428. NORMAL-FONT 8 scalefont setfont
  429. ( my name on my license to my new) show
  430. 18 mm 177 mm moveto (name in item 1. My former name was:) show
  431.  
  432. 18 mm 172 mm moveto 94 mm 172 mm lineto stroke
  433. 18 mm 169 mm moveto (\(Last name\)) show
  434. 41 mm 169 mm moveto (\(Suffix\)) show
  435. 57 mm 169 mm moveto (\(First name\)) show
  436. 86 mm 169 mm moveto (\(MI\)) show
  437.  
  438. 110 mm 199 mm moveto (4D. ) show 116 mm 199 mm moveto box
  439. BOLD-FONT 10 scalefont setfont
  440. 121 mm 199 mm moveto (CHANGE ) show
  441. NORMAL-FONT 8 scalefont setfont
  442. ( my mailing address on my license to) show
  443. 121 mm 196 mm moveto (my new address in item 3.) show
  444.  
  445. 110 mm 190 mm moveto (4E. ) show 116 mm 190 mm moveto box
  446. BOLD-FONT 10 scalefont setfont
  447. 121 mm 190 mm moveto (CHANGE ) show
  448. NORMAL-FONT 8 scalefont setfont
  449. ( my station call sign systematically) show
  450. 121 mm 187 mm moveto (\(See instructions\)) show
  451. 121 mm 184 mm moveto (Applicant's initials: ) show
  452. 20 mm 0 rlineto stroke
  453.  
  454. 110 mm 173 mm moveto (4F. ) show 116 mm 173 mm moveto box
  455. BOLD-FONT 10 scalefont setfont
  456. 121 mm 173 mm moveto (RENEWAL ) show
  457. NORMAL-FONT 8 scalefont setfont
  458. ( of my license) show
  459.  
  460. 1 mm 165 mm moveto (5.) show
  461. 5 mm 83 mm 165 mm
  462. (Unless you are requesting a new license, attach the) justify-text
  463. 5 mm 83 mm 162 mm
  464. (original or a photocopy of your license to the back of this) justify-text
  465. 5 mm 159 mm moveto
  466. (Form 610 and complete items 5A and 5B.) show
  467. 90 mm 165 mm moveto (5A. Call sign shown on license) show
  468. 141 mm 165 mm moveto (5B. Operator class shown on license) show
  469.  
  470. 1 mm 154 mm moveto (6.) show
  471. 5 mm 154 mm moveto (Would an FCC grant of your request be an ) show
  472. (action that may) show
  473. 5 mm 151 mm moveto (have a significant environmental effect?) show
  474. BOLD-FONT 10 scalefont setfont
  475. 110 mm 151 mm moveto box
  476. 115 mm 151 mm moveto (NO) show
  477. 134 mm 151 mm moveto box
  478. 139 mm 151 mm moveto (YES ) show
  479. NORMAL-FONT 8 scalefont setfont
  480. 0 1 mm rmoveto
  481. ( \(Attach required statement\)) show
  482.  
  483. 1 mm 147 mm moveto (7.) show
  484. 5 mm 65 mm 147 mm (If you have filed another Form 610 that we) justify-text
  485. 5 mm 65 mm 144 mm (have not acted upon, complete items 7A) justify-text
  486. 5 mm 141 mm moveto (and 7B.) show
  487. 68 mm 147 mm moveto (7A. Purpose of other form) show
  488. 157 mm 147 mm moveto (7B. Date filed) show
  489. 160 mm 139 mm moveto date-line
  490.  
  491. NORMAL-FONT 6.5 scalefont setfont
  492. 99 mm 135 mm moveto
  493. (WILLFUL FALSE STATEMENTS MADE ON THIS FORM ARE PUNISHABLE BY FINE AND/OR IMPRISONMENT, \(U.S. CODE, TITLE 18, SECTION 1001\), AND/OR REVOCATION OF)
  494. center-text
  495. 99 mm 132 mm moveto
  496. (ANY STATION LICENSE OR CONSTRUCTION PERMIT \(U.S. CODE, TITLE 47, SECTION 312\(A\)\(1\)\) AND/OR FORFEITURE \(U.S. CODE, TITLE 47, SECTION 503\).)
  497. center-text
  498.  
  499. 2 mm 196 mm 128 mm
  500. (I CERTIFY THAT ALL STATEMENTS AND ATTACHMENTS ARE TRUE, COMPLETE, AND CORRECT TO THE BEST OF MY KNOWLEDGE AND BELIEF AND ARE MADE IN GOOD)
  501. justify-text
  502. 2 mm 196 mm 125 mm
  503. (FAITH; THAT I AM NOT A REPRESENTATIVE OF A FOREIGN GOVERNMENT; THAT I WAIVE ANY CLAIM TO THE USE OF A PARTICULAR FREQUENCY REGARDLESS OF)
  504. justify-text
  505. 2 mm 122 mm moveto
  506. (PRIOR USE BY LICENSE OR OTHERWISE; AND THAT THE STATION TO BE ) show
  507. (LICENSED WILL BE INACCESSIBLE TO UNAUTHORIZED PERSONS.) show
  508.  
  509. NORMAL-FONT 8 scalefont setfont
  510. 1 mm 117 mm moveto (8.) show
  511. 5 mm 117 mm moveto
  512. (Signature of applicant \(Do not print, type or stamp.) show
  513. (\)    \(Must match name in item 1.\)) show
  514. 157 mm 117 mm moveto (9. Date signed) show
  515. 160 mm 108 mm moveto date-line
  516. BOLD-FONT 14 scalefont setfont
  517. DING-FONT 14 scalefont setfont
  518. 6 mm 110 mm moveto DING-SIGN
  519. 10 mm 110 mm moveto 152 mm 110 mm lineto stroke
  520.  
  521. % BOTOM SECTION
  522.  
  523. NORMAL-FONT 8 scalefont setfont
  524.  
  525. 1 mm 97 mm moveto (A.) show
  526. 5 mm 97 mm moveto (Applicant is qualified for operator license class:)
  527. show
  528. 120 mm 97 mm moveto (B. VEC receipt date:) show
  529.  
  530. 1 mm 64 mm moveto (C.) show
  531. 5 mm 64 mm moveto (Name of Volunteer-Examiner Coordinator \(VEC\):) show
  532. 1 mm 53 mm moveto (D.) show
  533. 5 mm 53 mm moveto (Date of VEC coordinated examination) show
  534. 5 mm 50 mm moveto (session:) show
  535. 63 mm 53 mm moveto (E. Examination session location:) show
  536.  
  537. /ve-line % y --
  538. {
  539. dup 67 mm exch moveto (VE's station call sign) show
  540. dup 100 mm exch moveto (VE's signature \(must match name\)) show
  541. 170 mm exch moveto (Date signed) show
  542. } def
  543.  
  544. 1 mm 34 mm moveto (1st VE's name  \(Print First, MI, Last, Suffix\)) show
  545. 34 mm ve-line
  546. 1 mm 21 mm moveto (2nd VE's name  \(Print First, MI, Last, Suffix\)) show
  547. 21 mm ve-line
  548. 1 mm 8 mm moveto (3rd VE's name  \(Print First, MI, Last, Suffix\)) show
  549. 8 mm ve-line
  550.  
  551. BOLD-FONT 9 scalefont setfont
  552. 4 mm 92 mm moveto box
  553. 11 mm 92 mm moveto (NOVICE) show
  554. 45 mm 92 mm moveto (\(Elements 1\(A\), 1\(B\), or 1\(C\) and 2\)) show
  555. 4 mm 88 mm moveto box
  556. 11 mm 88 mm moveto (TECHNICIAN) show
  557. 45 mm 88 mm moveto (\(Elements 2 and 3\(A\)\)) show
  558. 4 mm 84 mm moveto box
  559. 11 mm 84 mm moveto (TECHNICIAN PLUS) show
  560. 45 mm 84 mm moveto (\(Elements 1\(A\), 1\(B\), or 1\(C\), 2 and 3\(A\)\)) show
  561. 4 mm 80 mm moveto box
  562. 11 mm 80 mm moveto (GENERAL) show
  563. 45 mm 80 mm moveto (\(Elements 1\(B\) or 1\(C\), 2, 3\(A\), and 3\(B\)\)) show
  564. 4 mm 76 mm moveto box
  565. 11 mm 76 mm moveto (ADVANCED) show
  566. 45 mm 76 mm moveto (\(Elements 1\(B\) or 1\(C\), 2, 3\(A\), 3\(B\),) show
  567. ( and 4\(A\)\)) show
  568. 4 mm 72 mm moveto box
  569. 11 mm 72 mm moveto (AMATEUR EXTRA) show
  570. 45 mm 72 mm moveto (\(Elements 1\(C\), 2, 3\(A\), 3\(B\), 4\(A\)) show
  571. ( and 4\(B\)\)) show
  572.  
  573. % Finally, right justify this bit at the bottom
  574.  
  575. NORMAL-FONT 8 scalefont setfont
  576.  
  577. 198 mm -3 mm moveto (FCC Form 610) right-justify
  578. 198 mm -6 mm moveto (November 1993) right-justify
  579.  
  580. % This is optional. Uncomment it if you wish
  581.  
  582. % 0 -3 mm moveto
  583. % (No U.S. Government funds were used to print this document.) show
  584.  
  585. % WHEW! Half way home!
  586.  
  587. % At this point it's possible that a user has pre-pended a dictionary
  588. % which we can use to actually fill out the form in Courier.
  589.  
  590. currentdict /FORM known
  591.  
  592. {
  593.   /false-or-val
  594.   {
  595.     dup FORM exch known
  596.     { FORM exch get }
  597.     { pop false } ifelse
  598.   } def
  599.   /blank-or-val
  600.   {
  601.     dup FORM exch known
  602.     { FORM exch get }
  603.     { pop () } ifelse
  604.   } def
  605.  
  606.   /fillin-date-line % y string --
  607.   {
  608.     exch 160 mm exch moveto
  609.     12 exch 0 exch ashow
  610.   } def
  611.  
  612.   FILLIN-FONT 12 scalefont setfont
  613.  
  614.   2 mm 224 mm moveto /LAST blank-or-val show
  615.   65 mm 224 mm moveto /SUFFIX blank-or-val show
  616.   85 mm 224 mm moveto /FIRST blank-or-val show
  617.   145 mm 224 mm moveto /MIDDLE blank-or-val show
  618.  
  619.   224 mm /BIRTH blank-or-val fillin-date-line
  620.  
  621.   2 mm 212 mm moveto /STREET blank-or-val show
  622.   85 mm 212 mm moveto /CITY blank-or-val show
  623.   145 mm 212 mm moveto /STATE blank-or-val show
  624.   162 mm 212 mm moveto /ZIP blank-or-val show
  625.  
  626.   /4A false-or-val { 13 mm 199 mm moveto (X) show } if
  627.   /4B false-or-val { 13 mm 190 mm moveto (X) show } if
  628.   /4C false-or-val { 13 mm 180 mm moveto (X) show } if
  629.   /4D false-or-val { 116 mm 199 mm moveto (X) show } if
  630.   /4E false-or-val { 116 mm 190 mm moveto (X) show } if
  631.   /4F false-or-val { 116 mm 173 mm moveto (X) show } if
  632.  
  633.   18 mm 173 mm moveto /OLDLAST blank-or-val show
  634.   41 mm 173 mm moveto /OLDSUFFIX blank-or-val show
  635.   57 mm 173 mm moveto /OLDFIRST blank-or-val show
  636.   87 mm 173 mm moveto /OLDMIDDLE blank-or-val show
  637.  
  638.   93 mm 160 mm moveto /CALL blank-or-val show
  639.   145 mm 160 mm moveto /CLASS blank-or-val show
  640.  
  641.   /6N false-or-val { 110 mm 151 mm moveto (X) show } if
  642.   /6Y false-or-val { 134 mm 151 mm moveto (X) show } if
  643.  
  644.   70 mm 142 mm moveto /PURPOSE blank-or-val show
  645.   142 mm /FILED blank-or-val fillin-date-line
  646.  
  647.   111 mm /SIGNED blank-or-val fillin-date-line
  648.  
  649.   /NOVICE false-or-val { 4 mm 92 mm moveto (X) show } if
  650.   /TECH false-or-val { 4 mm 88 mm moveto (X) show } if
  651.   /TECH-PLUS false-or-val { 4 mm 84 mm moveto (X) show } if
  652.   /GENERAL false-or-val { 4 mm 80 mm moveto (X) show } if
  653.   /ADVANCED false-or-val { 4 mm 76 mm moveto (X) show } if
  654.   /EXTRA false-or-val { 4 mm 72 mm moveto (X) show } if
  655.  
  656.   4 mm 59 mm moveto /VEC blank-or-val show
  657.   4 mm 46 mm moveto /SESSION-DATE blank-or-val show
  658.   65 mm 46 mm moveto /SESSION-LOC blank-or-val show
  659.  
  660.   2 mm 26 mm moveto /VE1-NAME blank-or-val show
  661.   70 mm 26 mm moveto /VE1-CALL blank-or-val show
  662.   170 mm 26 mm moveto /VE1-SIGNED blank-or-val show
  663.  
  664.   2 mm 13 mm moveto /VE2-NAME blank-or-val show
  665.   70 mm 13 mm moveto /VE2-CALL blank-or-val show
  666.   170 mm 13 mm moveto /VE2-SIGNED blank-or-val show
  667.  
  668.   2 mm 1 mm moveto /VE3-NAME blank-or-val show
  669.   70 mm 1 mm moveto /VE3-CALL blank-or-val show
  670.   170 mm 1 mm moveto /VE3-SIGNED blank-or-val show
  671.  
  672. } if
  673.  
  674. showpage
  675.  
  676. %%Page: "back" 2
  677. % On the back, everything is relative to the bleed-through of the
  678. % main box on the front (I can just make it out under strong light).
  679. % So to make it fit on the page, we have to shove it around a bit.
  680.  
  681. .9 cm 1.6 cm translate
  682.  
  683. % There's another headerbox on the back, but the interior dimensions
  684. % are a little different, so we'll just copy the procedure and
  685. % change it a little.
  686.  
  687. /headerbox % x y --
  688. {
  689. moveto
  690.  
  691. gsave
  692.  
  693. 2 setlinewidth
  694.  
  695. % This is kind of a bitch. Because PostScript centers the setlinewidth
  696. % on the center of the line, we need to tweak the heavily drawn boxes
  697. % by both their width and the width of the lines they're butting up
  698. % to. That means moving in 1.75 points, not 2.
  699.  
  700. .75 0 rmoveto
  701. 198 mm 1.5 sub 0 rlineto 0 6 mm rlineto -198 mm 1.5 add 0 rlineto closepath
  702. stroke
  703.  
  704. grestore gsave % to rescue the currentpoint.
  705.  
  706. % Now the little vertical lines
  707.  
  708. 1 setlinewidth
  709.  
  710. 46 mm 0 rmoveto 0 6 mm rlineto 198 46 2 mul sub mm 0 rmoveto 0 -6 mm
  711. rlineto stroke
  712.  
  713. grestore gsave % again...
  714.  
  715. % Things just get a bunch worse here.
  716.  
  717. .95 setgray 1.25 1 rmoveto 46 mm 1.75 sub 0 rlineto 0 6 mm 2 sub rlineto
  718. -46 mm 1.75 add 0 rlineto closepath fill
  719.  
  720. grestore gsave % one more time.
  721.  
  722. .95 setgray 198 mm 1.25 sub 1 rmoveto -46 mm 1.75 add 0 rlineto 0 6 mm 2 sub
  723. rlineto 46 mm 1.75 sub 0 rlineto closepath fill
  724.  
  725. grestore
  726.  
  727. } def
  728.  
  729. 0 213 mm headerbox
  730.  
  731. % The rest of the lines are a half point wide
  732.  
  733. .5 setlinewidth
  734.  
  735. % The main box for the back
  736.  
  737. 0 120 mm moveto 0 254 mm lineto 198 mm 254 mm lineto
  738. 198 mm 120 mm lineto closepath stroke
  739.  
  740. % This may cause problems with the commission. If you don't want it,
  741. % comment it out.
  742. NORMAL-FONT 4 scalefont setfont
  743. 198 mm 254.5 mm moveto VERSION right-justify
  744.  
  745. NORMAL-FONT 10 scalefont setfont
  746.  
  747. 2 mm 250 mm moveto
  748. (ATTACH ORIGINAL OR A PHOTOCOPY OF YOUR LICENSE HERE:) show
  749.  
  750. BOLD-FONT 10 scalefont setfont
  751.  
  752. 99 mm 215 mm moveto
  753. (SECTION 3 - TO BE COMPLETED BY PHYSICIAN) center-text
  754.  
  755. 27 mm 207 mm moveto (PHYSICIAN'S CERTIFICATION) center-text
  756. 27 mm 203 mm moveto (OF DISABILITY) center-text
  757. 27 mm 197 mm moveto (Please see notice below) center-text
  758.  
  759. BOLD-FONT 8 scalefont setfont
  760.  
  761. 2 mm 155 mm moveto
  762. (WILLFUL FALSE STATEMENT IS PUNISHABLE BY FINE AND IMPRISONMENT ) show
  763. (\(U.S. CODE TITLE 18, SECTION 1001\)) show
  764.  
  765. 2 mm 140 mm moveto
  766. (PATIENT'S RELEASE) show
  767.  
  768. NORMAL-FONT 8 scalefont setfont
  769.  
  770. /line-to-end {
  771. currentpoint newpath moveto currentpoint exch pop 196 mm exch lineto stroke
  772. } def
  773.  
  774. 64 mm 204 mm moveto (Print, type, or stamp physician's name:  ) show
  775. line-to-end
  776. 64 mm 196 mm moveto (Street address:  ) show line-to-end
  777. 64 mm 188 mm moveto (City, State, ZIP code:  ) show line-to-end
  778. 64 mm 180 mm moveto (Office telephone number:  ) show
  779. gsave
  780. (   \(             \)) show
  781. grestore line-to-end
  782.  
  783. gsave
  784. DING-FONT 14 scalefont setfont
  785. 55 mm 147 mm moveto DING-ARROW
  786. 2 mm -1 mm rmoveto
  787. [ 82 mm 4 mm 17 mm 6 mm 25 mm 9 mm ] 0 setdash
  788. line-to-end
  789. grestore
  790.  
  791. NORMAL-FONT 6 scalefont setfont
  792. 62 mm 142 mm moveto (PHYSICIAN'S SIGNATURE \(DO NOT PRINT, ) show
  793. (TYPE, OR STAMP\)) show
  794. 150 mm 142 mm moveto (M.D. or D.O.) show
  795. 176 mm 142 mm moveto (DATE SIGNED) show
  796.  
  797. gsave
  798. DING-FONT 14 scalefont setfont
  799. 55 mm 126 mm moveto DING-ARROW
  800. 2 mm -1 mm rmoveto
  801. [ 82 mm 4 mm 48 mm 9 mm ] 0 setdash
  802. line-to-end
  803. grestore
  804.  
  805. 62 mm 121 mm moveto (APPLICANT'S SIGNATURE \(DO NOT PRINT, ) show
  806. (TYPE, OR STAMP\)) show
  807. 160 mm 121 mm moveto (DATE SIGNED) show
  808.  
  809. NORMAL-FONT 8 scalefont setfont
  810. 2 mm 196 mm 174 mm
  811. (I CERTIFY THAT I have read the Notice to Physician Certifying to a Disability, and that the person named in item 1 on the reverse is severely)
  812. justify-text
  813. 2 mm 196 mm 171 mm
  814. (handicapped, the duration of which will extend for more than 365 days beyond this date. Because of this severe handicap, this person is)
  815. justify-text
  816. 2 mm 196 mm 168 mm
  817. (unable to pass a 13 or 20 words per minute telegraphy examination. I am licensed to practice in the United States or its Territories as a doctor)
  818. justify-text
  819. 2 mm 196 mm 165 mm
  820. (of medicine \(M.D.\) or doctor of osteopathy \(D.O.\). I have considered the accommodations that could be made for this person's disability)
  821. justify-text
  822. 2 mm 196 mm 162 mm
  823. (and have determined that, even with accommodations, this person would be unable to pass a 13 or 20 words per minute telegraphy)
  824. justify-text
  825. 2 mm 159 mm moveto (examination.) show
  826. 2 mm 196 mm 136 mm
  827. (Authorization is hereby given to the physician named above, who participated in my care, to release to the Federal Communications)
  828. justify-text
  829. 2 mm 133 mm moveto
  830. (Commission any medical information deemed necessary to ) show
  831. (process my application for an amateur operator/primary ) show
  832. (station license.) show
  833.  
  834. % Welcome to hell. The "Notice to Physician..." part is two columns
  835. % of fully justified text. Yuck.
  836.  
  837. BOLD-FONT 8 scalefont setfont
  838. 99 mm 115 mm moveto
  839. (NOTICE TO PHYSICIAN CERTIFYING TO A DISABILITY) center-text
  840.  
  841. NORMAL-FONT 7 scalefont setfont
  842.  
  843. 5 mm 93 mm 109 mm
  844. (You are being asked by a person who has already passed a 5 words per)
  845. justify-text
  846. 5 mm 93 mm 106 mm
  847. (minute telegraphy examination to certify that, because of a severe)
  848. justify-text
  849. 5 mm 93 mm 103 mm
  850. (handicap, he/she is unable to pass a 13 or 20 words per minute)
  851. justify-text
  852. 5 mm 93 mm 100 mm
  853. (telegraphy examination. If you sign the certification, the person will be)
  854. justify-text
  855. 5 mm 93 mm 97 mm
  856. (exempt from the examination. Before you sign the certification, please)
  857. justify-text
  858. 5 mm 94 mm moveto
  859. (consider the following:) show
  860. 5 mm 93 mm 88 mm
  861. (THE REASON FOR THE EXAMINATION - Telegraphy is a method of)
  862. justify-text
  863. 5 mm 93 mm 85 mm
  864. (electrical communication that the Amateur Radio Service community)
  865. justify-text
  866. 5 mm 93 mm 82 mm
  867. (strongly desires to preserve. We support their objective by authorizing)
  868. justify-text
  869. 5 mm 93 mm 79 mm
  870. (additional operating privileges to amateur operators who increase their)
  871. justify-text
  872. 5 mm 93 mm 76 mm
  873. (skill to 13 and 20 words per minute. Normally, to attain these levels of skill,)
  874. justify-text
  875. 5 mm 93 mm 73 mm
  876. (intense practice is required. Annually, thousands of amateur operators)
  877. justify-text
  878. 5 mm 93 mm 70 mm
  879. (prove by passing examinations that they have acquired the skill. These)
  880. justify-text
  881. 5 mm 93 mm 67 mm
  882. (examinations are prepared and administered by amateur operators in)
  883. justify-text
  884. 5 mm 64 mm moveto
  885. (the local community who volunteer their time and effort.) show
  886. 5 mm 93 mm 58 mm
  887. (THE EXAMINATION PROCEDURE - The volunteer examiners \(VEs\) send a)
  888. justify-text
  889. 5 mm 93 mm 55 mm
  890. (short message in the Morse code. The examinee must decipher a series)
  891. justify-text
  892. 5 mm 93 mm 52 mm
  893. (of audible dots and dashes into 43 different alphabetic, numeric and)
  894. justify-text
  895. 5 mm 93 mm 49 mm
  896. (punctuation characters used in the message. To pass, the examinee)
  897. justify-text
  898. 5 mm 93 mm 46 mm
  899. (must correctly answer questions about the content of the message.)
  900. justify-text
  901. 5 mm 93 mm 43 mm
  902. (Usually, a fill-in-the-blanks format is used. With your certification, they will)
  903. justify-text
  904. 5 mm 93 mm 40 mm
  905. (give the person credit for passing the examination, even though they do)
  906. justify-text
  907. 5 mm 37 mm moveto
  908. (not administer it.) show
  909. 5 mm 31 mm moveto
  910. (MUST A PERSON WITH A HANDICAP SEEK EXEMPTION?) show
  911. 5 mm 93 mm 25 mm
  912. (No handicapped person is required to request exemption from the)
  913. justify-text
  914. 5 mm 93 mm 22 mm
  915. (higher speed telegraphy examinations, nor is anyone denied the)
  916. justify-text
  917. 5 mm 93 mm 19 mm
  918. (opportunity to take the examinations because of a handicap. There is)
  919. justify-text
  920. 5 mm 93 mm 16 mm
  921. (available to all otherwise qualified persons, handicapped or not, the)
  922. justify-text
  923. 5 mm 93 mm 13 mm
  924. (Technician Class operator license that does not require passing a)
  925. justify-text
  926. 5 mm 93 mm 10 mm
  927. (telegraphy examination. Because of international regulations, however,)
  928. justify-text
  929. 5 mm 93 mm 7 mm
  930. (any handicapped applicant requesting exemption from the 13 or 20)
  931. justify-text
  932. 5 mm 93 mm 4 mm
  933. (words per minute examination must have passed the 5 words per minute)
  934. justify-text
  935. 5 mm 1 mm moveto
  936. (examination.) show
  937.  
  938. 104 mm 192 mm 109 mm
  939. (ACCOMMODATING A HANDICAPPED PERSON - Many handicapped)
  940. justify-text
  941. 104 mm 192 mm 106 mm
  942. (persons accept and benefit from the personal challenge of passing the)
  943. justify-text
  944. 104 mm 192 mm 103 mm
  945. (examination in spite of their hardships. For handicapped persons without)
  946. justify-text
  947. 104 mm 192 mm 100 mm
  948. (an exemption who have difficulty in proving that they can decipher)
  949. justify-text
  950. 104 mm 192 mm 97 mm
  951. (messages sent in the Morse code, the VE's make exceptionally)
  952. justify-text
  953. 104 mm 192 mm 94 mm
  954. (accommodative arrangements. They will adjust the tone in frequency)
  955. justify-text
  956. 104 mm 192 mm 91 mm
  957. (and volume to suit the examinee. They will administer the examination at)
  958. justify-text
  959. 104 mm 192 mm 88 mm
  960. (a place convenient and comfortable to the examinee, even at bedside.)
  961. justify-text
  962. 104 mm 192 mm 85 mm
  963. (For a deaf person, they will send the dots and dashes to a vibrating)
  964. justify-text
  965. 104 mm 192 mm 82 mm
  966. (surface or flashing light. They will write the examinee's dictation. Where)
  967. justify-text
  968. 104 mm 192 mm 79 mm
  969. (warranted, they will pause in sending the message after each sentence,)
  970. justify-text
  971. 104 mm 192 mm 76 mm
  972. (each phrase, each word, or each character to allow the examinee)
  973. justify-text
  974. 104 mm 192 mm 73 mm
  975. (additional time to absorb and interpret what was sent. They will even)
  976. justify-text
  977. 104 mm 70 mm moveto
  978. (allow the examinee to send the message, rather than receive it.) show
  979. 104 mm 192 mm 62 mm
  980. (YOUR DECISION - The VEs rely upon you to make the necessary medical)
  981. justify-text
  982. 104 mm 192 mm 59 mm
  983. (determination for them using your professional judgement. You are)
  984. justify-text
  985. 104 mm 192 mm 56 mm
  986. (being asked to decide if the person's handicap is so severe that he/she)
  987. justify-text
  988. 104 mm 192 mm 53 mm
  989. (cannot pass the examination even when the VEs employ their)
  990. justify-text
  991. 104 mm 192 mm 50 mm
  992. (accommodative procedures. The impairment, moreover, will last more)
  993. justify-text
  994. 104 mm 192 mm 47 mm
  995. (than one year. This procedure is not intended to exempt a person who)
  996. justify-text
  997. 104 mm 192 mm 44 mm
  998. (simply wants to avoid expending the effort necessary to acquire greater)
  999. justify-text
  1000. 104 mm 192 mm 41 mm
  1001. (skill in telegraphy. The person requesting that you sign the certification)
  1002. justify-text
  1003. 104 mm 192 mm 38 mm
  1004. (will give you names and addresses of VEs and other amateur operators)
  1005. justify-text
  1006. 104 mm 192 mm 35 mm
  1007. (in your community who can provide you with more information on this)
  1008. justify-text
  1009. 104 mm 32 mm moveto
  1010. (matter.) show
  1011. 104 mm 192 mm 25 mm
  1012. (DETAILED INSTRUCTIONS - If you decide to execute the certification, you)
  1013. justify-text
  1014. 104 mm 192 mm 22 mm
  1015. (should complete and sign the Physician's Certification of Disability on the)
  1016. justify-text
  1017. 104 mm 192 mm 19 mm
  1018. (person's FCC Form 610. You must be an M.D. or D.O. licensed to)
  1019. justify-text
  1020. 104 mm 192 mm 16 mm
  1021. (practice in the United States or its Territories. The person must sign a)
  1022. justify-text
  1023. 104 mm 192 mm 13 mm
  1024. (release permitting disclosure to the FCC of the medical information)
  1025. justify-text
  1026. 104 mm 10 mm moveto
  1027. (pertaining to the disability.) show
  1028. 192 mm 4 mm moveto
  1029. (FCC Form 610) right-justify
  1030. 192 mm 1 mm moveto
  1031. (November 1993) right-justify
  1032.  
  1033. showpage
  1034.  
  1035. %%Trailer
  1036. %%EOF
  1037. ----- ereh tuc -----
  1038.